home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / big.dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  3.3 KB  |  153 lines
  1. on lfxkeycontrol3
  2.   dontPassEvent()
  3.   set the keyDownScript to "checkKey3"
  4. end
  5.  
  6. on lfxkeycontroloff
  7.   dontPassEvent()
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on checkkey3
  12.   global gvmacorwin, glkeyset, gvhelppoint, gvsoundfade, gvhelpmode
  13.   dontPassEvent()
  14.   case getPos(glkeyset, the keyCode) of
  15.     1:
  16.       lfxgotomenu()
  17.     2:
  18.       lfxgotoorb()
  19.     3:
  20.       nothing()
  21.     4:
  22.       nothing()
  23.     5:
  24.       nothing()
  25.     6:
  26.       nothing()
  27.     7:
  28.       nothing()
  29.       if gvhelpmode = 0 then
  30.         set gvhelpmode to 1
  31.       else
  32.         set gvhelpmode to 0
  33.         helphyoujibig("Off")
  34.         updateStage()
  35.       end if
  36.     8:
  37.       lfxsoundplus()
  38.     9:
  39.       lfxsoundmin()
  40.   end case
  41.   if the keyCode = 0 then
  42.     if gvhelpmode = 0 then
  43.       set gvhelpmode to 1
  44.     else
  45.       set gvhelpmode to 0
  46.       helphyoujibig("Off")
  47.       updateStage()
  48.     end if
  49.   end if
  50.   if gfxexitmovie() then
  51.     set gvhelpmode to 0
  52.     repeat with lvi = gvsoundfade down to 25
  53.       set the volume of sound 1 to lvi
  54.     end repeat
  55.     sound stop 1
  56.     sound stop 1
  57.     puppetSound(1, 0)
  58.     unloadMember(member "glVerdhandi.aif")
  59.     unloadMember(member "glUrdhr.aif")
  60.     unloadMember(member "glSkuld.aif")
  61.     unloadMember(member "glother.aif")
  62.     updateStage()
  63.     tell window "├ñg├½├é"
  64.       forget(window "├ñg├½├é")
  65.     end tell
  66.     gfxfalsepapette(1, 48)
  67.     fasterpreloadmode()
  68.     unLoad()
  69.     updateStage()
  70.     unloadafter()
  71.     stdpreloadmode()
  72.     go(1, "ENDING")
  73.   end if
  74. end
  75.  
  76. on lfxgotomenu
  77.   global gvsoundfade, gvhelpmode
  78.   dontPassEvent()
  79.   set gvhelpmode to 0
  80.   repeat with lvi = gvsoundfade down to 25
  81.     set the volume of sound 1 to lvi
  82.   end repeat
  83.   sound stop 1
  84.   puppetSound(1, 0)
  85.   unloadMember(member "glVerdhandi.aif")
  86.   unloadMember(member "glUrdhr.aif")
  87.   unloadMember(member "glSkuld.aif")
  88.   unloadMember(member "glother.aif")
  89.   updateStage()
  90.   tell window "├ñg├½├é"
  91.     forget(window "├ñg├½├é")
  92.   end tell
  93.   gfxfalsepapette(1, 48)
  94.   unLoad()
  95.   updateStage()
  96.   unloadafter()
  97.   stdpreloadmode()
  98.   updateStage()
  99.   go("Back", "MENU")
  100. end
  101.  
  102. on lfxgotoorb
  103.   global gvsoundfade, gvhelpmode
  104.   dontPassEvent()
  105.   set gvhelpmode to 0
  106.   repeat with lvi = gvsoundfade down to 25
  107.     set the volume of sound 1 to lvi
  108.   end repeat
  109.   sound stop 1
  110.   puppetSound(1, 0)
  111.   unloadMember(member "glVerdhandi.aif")
  112.   unloadMember(member "glUrdhr.aif")
  113.   unloadMember(member "glSkuld.aif")
  114.   unloadMember(member "glother.aif")
  115.   updateStage()
  116.   tell window "├ñg├½├é"
  117.     forget(window "├ñg├½├é")
  118.   end tell
  119.   gfxfalsepapette(1, 48)
  120.   unLoad()
  121.   updateStage()
  122.   unloadafter()
  123.   stdpreloadmode()
  124.   updateStage()
  125.   go("LOOP", "ORB")
  126. end
  127.  
  128. on lfxsoundplus
  129.   global gvsoundlevel, gvsoundfade, gvslevellist
  130.   dontPassEvent()
  131.   if gvsoundlevel < count(gvslevellist) then
  132.     set gvsoundlevel to gvsoundlevel + 1
  133.   else
  134.     set gvsoundlevel to count(gvslevellist)
  135.   end if
  136.   set gvsoundfade to getAt(gvslevellist, gvsoundlevel)
  137.   set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  138.   set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  139. end
  140.  
  141. on lfxsoundmin
  142.   global gvsoundlevel, gvsoundfade, gvslevellist
  143.   dontPassEvent()
  144.   if gvsoundlevel > 1 then
  145.     set gvsoundlevel to gvsoundlevel - 1
  146.   else
  147.     set gvsoundlevel to 1
  148.   end if
  149.   set gvsoundfade to getAt(gvslevellist, gvsoundlevel)
  150.   set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  151.   set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  152. end
  153.